Private Sub ReadUserFile()
   If (_MyUsers Is Nothing) Then
      SyncLock (Me)      
         _MyUsers = New Dictionary(Of String, MembershipUser)()
         Dim xd As XmlDocument = New XmlDocument()
         xd.Load(HostingEnvironment.MapPath(_FileName))
         Dim xnl As XmlNodeList = xd.GetElementsByTagName("User")

         For Each node As XmlNode In xnl
            Dim mu As MembershipUser = New MembershipUser(Name, _
               node("Username").InnerText, _
               Nothing, _
               node("Email").InnerText, _
               String.Empty, _
               node("Password").InnerText, _
               True, _
               False, _
               DateTime.Parse(node("DateCreated").InnerText), _
               DateTime.Now, _
               DateTime.Now, _
               DateTime.Now, _
               DateTime.Now)

               _MyUsers.Add(mu.UserName.ToLower(), mu)
         Next
      End SyncLock
   End If
End Sub
